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EVALUATION 


The  purpose  of  this  contractual  effort  was  to  upgrade  the  FORTRAN 
Automated  Verification  System  (FAVS)  installations  at  the  Defnese  Mapping 
Agency  (DMA)  Aerospace  Center  (DMAAC)  and  Hydrographic /Topographic  Center 
(DMAHTC) .  The  goals  of  the  effort  were  to  provide  efficiency  enhancements 
to  reduce  FAVS  processing  time  by  at  least  a  factor  of  three,  improve  the 
FAVS  user  interface,  extend  FAVS  processing  to  UNIVAC  ASCII  FORTRAN,  reduce 
FAVS  data  base  library  storage  requirements,  and  to  correct  residual  errors. 
The  upgrade,  which  was  accomplished  by  a  series  of  four  software  releases, 
was  successfully  performed  and,  in  some  cases,  the  goals  were  exceeded.  The 
effort  resulted  in  a  software  testing  tool  which  is  closely  tuned  to  the  DMA 
processing  environment.  This  effort  was  responsive  to  the  objective  of  the 
RADC  Technology  Plan,  TPO  4G3,  "Software  Engineering  (Software  Tools)." 

FRANK  S.  LAMONICA 
Project  Engineer 
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1  INTRODUCTION 

The  FORTRAN  Automated  Verification  System  (FAVS)  is  a  series  of 
tools  which  provide: 

•  Translation  from  DMATRAN  (a  structured  extension  of  FORTRAN) 
to  FORTRAN  and  from  FORTRAN  to  DMATRAN 

•  Static  detection  of  unreachable  statements,  set/use  errors, 
mode-conversion  errors,  and  external  reference  errors 

•  A  means  of  measuring  the  effectiveness  of  software  test 
cases,  both  individually  and  cumulatively 

•  Assistance  in  the  construction  of  test  data  that  will 
thoroughly  exercise  the  software 

•  Automated  documentation 

As  part  of  its  program  for  applying  advanced  technology  to  improve 
the  quality  and  reliability  of  software,  and  to  provide  testing  tools 
for  the  Defense  Mapping  Agency,  Rome  Air  Development  Center  contracted 
with  General  Research  Corporation  to  design,  install,  and  document 
certain  enhancements  of  FAVS.  The  enhancements  are  intended  to  reduce 
the  cost  of  assuring  that  software  systems  written  in  FORTRAN  are 
comprehensively  tested.  This  report  (the  final  report  for  the  project) 
describes  the  enhancements  and  quantifies  the  improvement  in  performance 
where  possible. 

The  work  involved  the  application  of  efficient  and  automatable 
algorithms  and  techniques  to  the  verification  and  testing  of  FORTRAN 

software.  The  specific  tasks  were  to  provide  efficiency  enhancements 

that  reduce  FAVS  processing  time  by  at  least  a  factor  of  three,  improve 
the  FAVS  user  interface  and  reports,  extend  FAVS  processing  to  UN1VAC 
ASCII  FORTRAN,  provide  an  interface  library  capability  for  FAVS,  and 
correct  errors  in  FAVS. 


The  FAVS  software  was  enhanced  in  a  series  of  four  updates  (Table 
1.1).  Each  update  was  installed  and  tested  at  DMAAC  and  DMAHTC  by  GRC 
personnel,  after  verifying  correct  operation  by  testing  on  the  CDC  6400 
at  GRC  in  Santa  Barbara,  California.  It  was  originally  planned  that  all 
efficiency  enhancements  would  be  completed  during  Update  1.  At  that 
time  the  CDC  6400  version  of  FAVS  had  met  the  goal  of  running  in  one- 
third  of  the  original  processing  time,  mostly  because  of  reductions  in 
CPU  time.  When  Update  1  was  installed  on  the  UNIVAC  1100/80s  at  the  DMA 
sites .however ,  the  relative  improvement  was  not  as  great.  The  slower 
I/O  devices  in  the  UNIVACs  caused  FAVS  to  be  more  I/O  bound.  Subsequent 
updates,  therefore,  included  further  enhancements  to  improve  the  I/O 
performance  of  FAVS.  The  result  was  significant  further  improvement  in 
performance  on  the  CDC  6400  as  well  as  the  UNIVAC  1100/80. 


FAVS 

Update 

Week  of 
DMAAC 

TABLE  1.1 

FAVS  UPDATES 

Update 

DMAHTC 

Type  of 

Update 

1 

7-23-79 

7-16-79 

Efficiency  enhancements, 
error  corrections 

2 

10-15-79 

11-11-79 

Efficiency  enhancements, 
report  enhancements,  error 
corrections 

3 

1-21-80 

1-28-80 

ASCII  FORTRAN,  error 
corrections,  efficiency 
enhancements 

4 

5-18-80 

4-21-80 

Interface  library,  user 
interface  enhancements, 
error  corrections 

The  enhanced  FAVS  has  been  implemented  for  the  analysis  of 
computer  software  v?ritten  in  UNIVAC  FORTRAN  V,  ASCII  FORTRAN,  or  DMATRAN 
and  is  operational  on  the  UNIVAC  1100/80  computers  at  DMAHTC  in 
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Washington,  DC,  and  DMAAC  in  St.  Louis,  Missouri,  and  on  the  CDC  6400 
computer  at  General  Research  Corporation  in  Santa  Barbara,  California, 
where  it  was  developed. 

Section  2  of  this  report  summarizes  the  efficiency  enhancements. 
Section  3  describes  restart  file  enhancements.  Section  4  describes 
extensions  for  the  UNIVAC  ASCII  FORTRAN  dialect.  Section  5  describes 
the  enhanced  FAVS  user  interface  and  improved  FAVS  reports.  Section  6 
describes  error  and  deficiency  corrections  to  FAVS. 

In  addition  to  this  report,  a  number  of  other  reports  have  been 
prepared  as  part  of  the  effort: 

•  FAVS  (FORTRAN  Automated  Verification  System)  User's  Manual 
(CR-1-754/1,  December  1977,  revised  April  1980). 

This  report  is  an  introduction  to  using  FAVS  in  the  testing 
process.  Its  purpose  is  to  acquaint  the  user  with  the 
application  of  FAVS  to  program  testing,  so  that  an  efficient 
approach  to  program  verification  can  be  taken.  The  basic 
commands  by  which  FAVS  provides  this  assistance  are  dis¬ 
cussed  in  detail.  FAVS  processing  is  described  in  the  order 
normally  followed  by  the  beginning  FAVS  user.  The  Appen¬ 
dixes  include  a  description  of  FAVS  operation  at  DMAHTC  and 
DMAAC,  with  both  sample  command  sets  and  sample  job  control 
statements. 

•  DMA TRAN  User's  Guide  (CR-1-673/1,  January  1978) 

This  report  describes  the  structured  constructs  and  syntax 
of  DMATRAN,  a  structured  extension  to  FORTRAN.  It  also 
details  the  use  of  the  DMATRAN  preprocessor,  which  trans¬ 
lates  DMATRAN  into  FORTRAN.  Procedures  for  using  the  UNIVAC 
1100/80  or  the  Honeywell  6180  version  of  DMATRAN  are 
included.  Revision  pages  to  update  the  DMATRAN  User's  Guide 
are  included  as  Appendix  A  of  this  Final  Report. 


FAVS  (FORTRAN  Automated  Verification  System)  Computer 
Program  Documentation:  Vols.  i,  2,  3  ( CR— 2— 7 54 / 1 ,  January 
1978;  Revised  January  1981). 

These  reports  describe  the  FAVS  software  design,  the 
organization  and  contents  of  the  FAVS  data  base,  and  for 
each  FAVS  component  its  function,  each  of  its  invokable 
modules,  and  the  global  data  structures  it  uses.  The  report 
is  intended  for  use  in  FAVS  software  maintenance,  together 
with  the  Software  Analysis  reports  described  below. 

FAVS  Computer  Program  Documentation:  Vol.  4,  Software 
Analysis 

This  volume  is  a  collection  of  computer  output  produced  by 
FAVS,  not  reproduced  but  on  file  at  RADC,  DMAAC,  and  DMAHTC . 
The  source  code  for  each  component  of  the  FAVS  software  has 
been  analyzed  by  FAVS  itself  to  produce  enhanced  source  code 
listings  of  FAVS  with  indentation  and  control  structure 
identification,  inter-module  dependence,  all  module  invo¬ 
cations,  module  control  structure,  and  a  cross  reference  of 
symbol  usage.  This  volume  is  intended  to  be  used  with  Vols. 
1-3  for  FAVS  software  maintenance.  It  is  itself  also  an 
excellent  example  of  the  use  of  FAVS  for  computer  software 
documentation . 
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2  EFFICIENCY  ENHANCEMENTS 

Experience  at  DMA  indicated  that  FAVS  required  excessive  computer 
time  when  analyzing  large  FORTRAN  systems.  The  time  (especially  for  I/O 
processing)  seemed  to  increase  exponentially  as  more  lines  of  source 
code  were  analyzed.  The  DMA  data  processing  department  was  running 
large  backlogs — FAVS  users  were  faced  with  overnight  (or  even  weekly) 
turnaround — and  DMA  management  could  foresee  even  larger  backlogs  if  the 
use  of  FAVS  became  widespread.  To  remedy  this  situation,  a  goal  was  set 
of  enhancing  FAVS  efficiency  to  reduce  its  processing  time  (CPU  and  I/O 
combined)  by  a  factor  of  three.  This  goal  was  met  and  exceeded.  FAVS 
processing  time  (especially  I/O  processing  time)  is  now  nearly  linear  in 
source  lines  analyzed.  In  processing  3500  to  7000  lines  of  source  code, 
processing  time  has  been  reduced  by  a  factor  of  8  to  10. 


Figures  2.1  and  2.2  indicate  performance  increases  in  the  range 
of  150  to  7000  source  lines.  In  these  figures  FAVS.O  refers  to  FAVS 
before  any  efficiency  enhancements,  FAVS. 4  refers  to  FAVS  after  the 
enhancements  described  in  this  section.  Table  2.1  shows  characteristics 
of  the  source  programs  used,  as  well  as  the  actual  processing  seconds 
used  (on  the  CDC  6400/G0LETA  system).  All  source  programs  used  were 
written  in  DMATRAN,  so  that  compilation  time  refers  to  the  sum  of 
DMATRAN  precompilation  and  CDC  SCOPE  FTN  compilation  time.  All  FAVS 
times  are  for  the  STATIC  option.  Similar  results  were  obtained  on  the 
DMA  UNIVAC  1100/80. 


I/O  Processing  Time 

As  indicated  in  Fig.  2.1,  FAVS  I/O  processing  time  was  improved  by 
a  factor  of  3  to  7  when  processing  150  source  lines,  but  was  improved 
dramatically  (10  to  30  times)  when  processing  3500  to  7500  source  lines. 
Previously,  FAVS.O  1/0  processing  time  increased  exponentially  with  the 
number  of  symbols  processed.  FAVS. 4  I/O  processing  is  nearly  a  constant 
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SOURCE  LINES 


Figure  2.1.  Relative  Improvement  in  FAVS  I/O  Processing  Time 


Figure  2.2.  Relative  Improvement  in  FAVS  CPU  Processing  Time 
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multiple  of  source  lines  processed.  FAVS.4  performs  extremely  well  in 
terms  of  I/O  time  as  more  and  more  symbols  are  processed,  primarily 
because  of  the  enhancements  in  token  processing  and  cross-reference 
processing.  FAVS.O  exhibited  a  high  I/O-processing  overhead  when 
processing  small  numbers  of  source  lines  and  symbols  and  large  numbers 
of  modules.  In  FAVS.4,  this  problem  was  eliminated  by  enhancements  to 
the  virtual  data  space  processing. 


CPU  Processing  Time 

As  indicated  in  Fig.  2.2,  FAVS  CPU  processing  time  was  improved 
by  a  factor  of  two  to  three  when  processing  150  source  lines  and  by  a 
factor  of  as  much  as  four  when  processing  7500  source  lines.  FAVS  CPU 
processing  time  appears  to  be  a  constant  multiple  of  source  lines 
processed.  This  combined  with  recent  improvements  in  the  DMA  computers 
translates  into  an  order  of  magnitude  reduction  in  CPU  processing  time 
in  the  DMA  data  processing  environment.  At  the  same  time  as  the  FAVS 
Enhancement  contract,  DMA  undertook  a  series  of  hardware  enhancements 
which  reduce  CPU  processing  time  by  a  factor  of  3  to  4.  FAVS  users  at 
DMA  can  now  expect  significantly  improved  turnaround,  and  DMA  managers 
are  not  faced  with  the  prospect  of  significantly  increasing  backlogs  as 
FAVS  becomes  more  widely  used. 

2.1  TOKEN  PROCESSING 

Meaningful  strings  of  source  text  characters  (keywords,  labels, 
symbols,  constants,  etc.)--which  may  be  longer  than  one  computer 
word — are  internally  represented  by  FAVS  as  "token  integers".  The  way 
in  which  tokens  were  processed  contributed  to  the  nonlinear  behavior  of 
FAVS  when  processing  source  elements  containing  many  symbols.  Token 
integers  were  implemented  as  pointers  to  character  strings  stored  in  a 
"token  table”.  When  FAVS  encountered  a  character  string,  it  performed 
a  sequential  search  of  all  entries  in  the  token  table  to  see  if  the 
string  had  been  previously  encountered;  if  not,  it  added  the  string  as 
the  last  entry  of  the  token  table. 


FAVS  token  processing  was  modified  to  recognize  short  character 
strings  which  fit  in  one  machine  word  (6  characters  or  less  on  the 
UNIVAC  1100/80)  and  treat  the  string  (interpreted  as  an  integer)  as  its 
own  token  integer,  in  the  following  way.  FAVS  character  strings  are 
left- justified  and  blank-filled.  Short  character  strings  are  now 
converted  into  token  integers  by  filling  them  with  a  special  encoding 
character  (thus  storing  the  character  string  as  well  as  its  length  into 
one  machine  word).  There  is  no  need  to  check  the  table  at  all  for  short 
strings.  Long  character  strings,  and  character  strings  ending  in  the 
special  encoding  character  (used  for  filling  short  character  strings), 
are  treated  in  the  same  manner  as  before.  Since  most  FORTRAN  tokens  are 
short  (operators,  delimiters,  and  symbols),  this  change  significantly 
reduces  the  size  of  the  token  table  as  well  as  the  number  of  times  it  is 
searched.  Encoding  short  character  strings  into  token  integers  and 
decoding  token  integers  into  character  strings  is  an  efficient  process 
which  is  independent  of  the  number  of  tokens  previously  processed. 

2.2  CROSS-REFERENCE  PROCESSING 

Several  of  the  FAVS  options  require  a  data  structure  which 
identifies  the  occurrence  and  use  of  all  symbols  in  a  set  of  source 
elements.  This  was  previously  implemented  as  a  Referenced  Symbol  table 
which  contained  an  entry  for  each  symbol,  and  a  Cross  Reference  table 
which  contained  an  entry  for  each  use  of  each  symbol.  The  Referenced 
Symbol  entry  started  a  chain  of  entries  in  the  Cross  Reference  data 
structure  for  all  occurrences  of  that  symbol.  The  global  scope  of  the 
Referenced  Symbol  table  contributed  to  the  nonlinear  behavior  of  FAVS 
when  processing  source  elements  containing  many  symbols.  Previously  for 
each  use  of  a  symbol  in  any  source  element,  a  linear  search  of  the 
Referenced  Symbol  table  was  performed  to  see  if  a  chain  of  uses  for  the 
symbol  already  existed.  If  it  did,  this  use  was  added  to  the  chain; 
otherwise  a  new  chain  was  begun. 
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FAVS  was  modified  to  include  in  each  module's  symbol  table  a 
pointer  to  the  use  chain  of  each  symbol  used  in  the  module.  This 
improves  the  efficiency  of  FAVS  cross-reference  processing  by  completely 
eliminating  the  need  to  search  the  Referenced  Symbol  table.  Because  it 
also  directly  relates  cross-reference  information  to  symbol  information, 
better  cross-reference  and  static  analysis  reports  can  be  produced. 

2.3  SYMBOL  TABLE  PROCESSING 

Each  symbol,  label,  or  constant  which  occurs  in  a  source  element 
was  previously  described  by  a  lS-word  entry  in  the  element's  symbol 
table.  The  size  of  this  data  structure  contributed  significantly  to  the 
size  of  a  FAVS  restart  file,  as  well  as  to  the  processing  overhead.  The 
symbol  table  was  modified  to  utilize  7-word  entries  plus  expandable 
variable-length  entries.  These  modifications  reduce  the  size  of  FAVS 
restart  files  and  decrease  FAVS  processing  time. 

2.4  SOURCE  TEXT  ANALYSIS 

FAVS  previously  performed  three  passes  through  the  original  source 
text  before  converting  it  to  an  internal  form.  This  required  reading 
the  source  three  times  and  writing  it  twice,  with  minor  alterations  each 
time  it  was  written.  FAVS  was  modified  to  perform  the  same  function 
while  reading  the  original  source  only  once. 

FAVS  previously  translated  source  text  to  an  internal  form, 
reconstructed  the  source  text  from  that  internal  form,  and  then  stored 
the  reconstructed  text  for  use  in  printing  and  punching.  FAVS  was 
modified  to  store  source  text  exactly  as  it  is  read  in  and  to  tie  its 
internal  statement  representations  to  the  original  source  text.  This 
eliminates  a  time-consuming  character  processing  task  (source  text 
reconstruction)  as  well  as  improving  the  usability  of  FAVS  reports. 


2.5  DATA  BASE  SYSTEM  TUNING 

The  above  enhancements  concentrated  on  the  problem  of  analyzing 
FORTRAN  source  code  more  efficiently.  FAVS  uses  a  general  purpose  data 
base  storage  and  retrieval  system.  After  the  above  enhancements  were 
completed,  it  was  determined  that  the  data  base  system  accounted  for  95% 
of  FAVS  I/O  time.  By  tuning  the  data  base  system,  FAVS  I/O  was  reduced 
by  a  factor  of  four  (in  addition  to  the  reductions  described  earlier). 

The  data  base  system  uses  a  paging  technique  in  which  the  least 
frequently  used  "page"  is  written  out  of  core  when  a  page  not  in  core  is 
called  for.  A  page  fault  occurs  when  the  desired  page  is  not  core 
resident.  A  data  structure  may  occupy  more  than  one  page;  page 

switching  occurs  when  access  to  the  same  data  structure  crosses  a  page 
boundary.  Tuning  of  the  data  base  system  consisted  of  the  following 
changes . 

1.  Previously  the  initial  reference  to  a  page  was  treated  as  a 
page  fault  (a  page  of  zeroes  was  written  onto  mass  storage 
and  then  read  into  core).  This  artifically  increased  the 
page  fault  rate.  Now  an  appropriate  in-core  page  is 
initialized  to  zeroes. 

2.  Previously  a  page  could  only  contain  information  about  one 
module.  This  led  to  high  fragmentation  and  a  higher  page 
fault  rate.  Now  a  page  can  contain  information  about  more 
than  one  module. 

3.  Previously  the  "activity  status"  algorithm  that  kept  track 
of  the  frequency  of  use  of  in-core  pages  made  note  of  each 
page  fault  or  page  switch.  It  ignored  accesses  to  data 
structures  completely  contained  in  one  page.  A  higher  page 
fault  rate  resulted,  since  frequently  referenced  pages  were 
likely  to  have  been  "paged  out".  Now  an  equivalent  but 
computationally  simpler  activity  status  algorithm  keeps 
track  of  each  access  to  a  page,  substantially  reducing  the 
page  fault  rate. 


4. 


Previously  20  in-core  pages  of  500  words  provided  optimum 
performance  for  a  wide  range  of  test  points.  Now  30  in-core 
pages  of  300  words  significantly  reduces  the  page  fault  rate 
for  the  same  range  of  test  points. 

5.  The  minimum  number  of  in-core  pages  required  for  internal 
data  base  pointers  (as  opposed  to  source  text  data  struc¬ 
tures)  was  reduced  from  4  to  2.  Previously  20%  of  the 
in-core  area  was  used  up  by  data  base  pointers;  now  it  is 
only  5.4%.  This  also  helps  to  reduce  the  page  fault  rate. 
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1  tti-^iAKT  FILE  ENHANCEMENTS 

r.'.'v.S  is  designed  to  be  especially  useful  for  analyzing  large 
FUR  IRA!.  systems  consisting  of  many  compilation  units.  Section  2 
described  the  enhancements  used  to  reduce  FAVS  processing  time  for  large 
FOR'!  KAN  s  vs  terns.  This  section  describes  changes  to  the  FAVS  restart 
tile  (permanent  data  base)  which  have  produced  an  additional  order  of 
magnitude  reduction  in  the  cost  of  consistently  using  FAVS  during  the 
coding,  test  and  acceptance,  and  maintenance  of  software.  This  reduction 
is  achieved  by: 

1.  Reducing  the  size  (and  storage  costs)  of  FAVS  restart  files 
by  an  order  of  magnitude  or  more. 

2.  Producing  updated  versions  of  FAVS  global  reports  by 
reanalyzing  changed  modules  only. 

In  addit  ,  limitation  of  100  compilation  units  per  restart  file  was 

complete1’.'  r-tr  oved . 

Restart  processing  time  using  FAVS.O  was  a  function  of  the  number 
of  source  lines  previously  analyzed  as  well  as  the  number  of  new  or 
modified  source  lines  to  be  analyzed.  The  size  of  the  restart  file — 10 
to  20  times  the  size  of  the  source  text — effectively  limited  the  use  of 
restart  tiles  to  small  systems.  Besides,  it  was  observed  that  repro¬ 
cessing  a  complete  system  was  not  much  more  expensive  than  reanalyzing 
only  changed  modules  using  a  restart  file.  As  a  result,  FAVS.O  was  used 
almost  iteiy  in  its  stand-alone  mode.  With  FAVS. 4,  however,  the 
enhancements  in  efficiency  and  in  the  restart  file  make  it  economically 
feasible  to  use  the  FAVS  restart  mode  throughout  the  coding,  test  and 
acceptuM. .  .  ..nd  maintenance  of  large  FORTRAN  software  systems.  This 
makes  it  possible  to  constantly  verify  that  interfaces  between  modules 
are  cor  re -t  and  consistent,  and  to  produce  updated  system  level  documen¬ 
tation  as  required. 
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Fig.  3.1  and  Fig.  3.2  indicate  that  FAVS  processing  time  using  a 
restart  file  has  been  dramatically  improved,  especially  for  large 
systems  with  many  source  lines. 

Restart  File  Size 

As  indicated  in  Fig.  3.2,  the  size  of  the  FAVS  restart  file  was 
reduced  by  a  factor  of  five  to  fifteen  times.  This  reduction  was 
accomplished  by  a  major  change  in  the  information  stored  on  the  restart 
file.  Previously,  the  file  contained  detailed  descriptions  of  source 
text,  which  could  be  reanalyzed  (but  not  modified)  without  having  to 
read  source  text  from  an  external  file,  and  used  to  produce  global 
information  and  reports. 

The  new  FAVS  restart  file  saves  the  information  necessary  to 
produce  reports  about  more  than  one  module  and  perform  static  analysis 
on  new  or  modified  source  text,  but  it  does  not  save  source  text  or  a 
detailed  description  of  it.  To  reanalyze  given  source  text,  the  text 
must  be  read  from  an  external  file.  This  change  is  consistent  with  the 
improved  processing  efficiency  of  FAVS. 4,  which  makes  it  cheaper  to 
reprocess  source  text  than  to  store  detailed  source  text  descriptions 
for  possible  later  use. 


I/O 


FAVS-Q 
FAVS  4 


0  IK  2K  3K  4K  5K  6K  7K 

SOURCE  LINES 


Figure  3.2.  Relative  Improvement  in  Restart  File  Size 
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UNIVAC  ASCII  FORTRAN  ENHANCEMENTS 

In  order  to  enhance  FAVS  and  DMATRAN  as  operational  tools  for 
ASCII  FORTRAN  (UNIVAC' s  version  of  FORTRAN  77),  GRC  modified  FAVS  to 
recognize  and  process  ASCII  FORTRAN  and  modified  DMATRAN  to  include  the 
ASCII  FORTRAN  structured  IF  statements.  Modifying  DMATRAN  provided  an 
automatic  indentation  capability  for  ASCII  FORTRAN  as  well  as  DMATRAN 
programs. 

ASCII  FORTRAN  (FORTRAN  77)  adds  12  new  statements  to  FORTRAN  V, 
modifies  six  existing  statements  in  FORTRAN  V,  and  adds  a  character 
string  data  type  and  three  operators  related  to  that  data  type.  GRC 
modified  FAVS  to  recognize  and  correctly  process  the  following  new 
statement  types: 

(a)  Structured  IF  statements 

IF  (e)  THEN 
ELSE  IF  (e)  THEN 
ELSE 
END  IF 

(b)  Character  statements 

CHARACTER  [*len[ ,] name [ .name] ... ] 

V  ■  e  (character  assignment) 

(c)  I/O  statements 

CLOSE  (cllist) 

INQUIRE  (iflist) 

INQUIRE  (lull st) 

OPEN  (olist) 


(d)  Declaration  statements 


INTRINSIC  fun  [,fun]... 

SAVE  [a ,  [ ,  al . 3 

as  well  as  the  modified  statement  types: 

(a)  DO  statement 

DO  S  [ ,]  i  *  e^,  e2t ,  e^l 

(b)  I/O  statements 

BACKSPACE  (alist) 

ENDFILE  (alist) 

READ  (cilist)  [iolist] 

REWIND  (ailist) 

WRITE  (cilist)  [iolist] 

Also  all  syntactically  correct  statements  containing  the  new  character 
operators  .EQV.,  .NEQV.,  and  //  will  be  processed  by  FAVS. 

The  DMATRAN  syntax  for  structured  IF  statements  was  modified  to 
include  the  ASCII  ELSE  IF... THEN  statement  (the  IF... THEN,  ELSE,  and 
ENDIF  statements  in  DMATRAN  are  syntactically  identical  to  those  in 
ASCII  FORTRAN).  The  DMATRAN  precompiler  was  modified  to  automatically 
indent  the  new  ELSE  IF... THEN  statement  as  well  as  to  pass  ASCII  FORTRAN 
structured  IF  statements  directly  to  the  compiler  without  translating 
them  into  logically  equivalent  ANSI  FORTRAN  as  is  currently  done. 


5  USER  INTERFACE  ENHANCEMENTS 

User  interface  enhancements  to  FAVS  include  simplifying  FAVS 
commands,  improving  FAVS  reports,  and  tailoring  FAVS  to  the  DMA  UN1VAC 
1100/80.  Although  no  attempt  has  been  made  to  quantify  the  benefits  of 
these  enhancements,  it  is  evident  that  a  more  easily  usable  tool  with 
readily  understandable  output  will  require  less  programmer  time  to 
perform  the  same  analysis. 

5.1  COMMANDS 

Use  of  FAVS  has  been  simplified  by  allowing  most  FAVS  processing 
to  be  specified  with  UNIVAC  @XQT  parameters  ("options"  in  UNIVAC 
terminology),  and  providing  macro  commands  to  generate  individual 
reports.  The  FAVS  options  can  still  be  specified  on  the  command  file  by 
using  the  OPTIONS  command  described  in  Sec.  3.3  of  the  FAVS  User's 
Manual.  At  DMA  installations,  the  options  can  also  be. specified  in  the 
job  control  language  by  means  of  parameters  following  the  UNIVAC  @XQT 
command.  One  or  more  parameters  can  be  specified  at  one  run.  Note  that 
no  commas  are  allowed  between  parameters.  For  example,  if  you  want  the 
STATIC  analysis  (S),  the  DOCUMENT  reports  (D),  and  INSTRUMENTation  of 
the  modules  (I),  the  execute  statement  would  be 

@XQT, SDI  R. FAVS 

The  FAVS  option  parameters  are: 

B  SUMMARY 

D  DOCUMENT 

E  EXPAND 

I  INSTRUMENT 

L  LIST 

R  RESTART 

S  STATIC 

T  INPUT/OUTPUT 

X  <described  below> 

RESTRUCTURE 


u 


Z 


When  these  parameters  are  used,  FAVS  will  not  read  the  command 
file  unless  X  is  one  of  the  parameters.  The  X  tells  FAVS  that  there 
will  be  other  commands  on  the  command  file  (refer  to  FAVS  User's  Manual 
for  a  discussion  of  commands). 

New  commands  REPORT  and  F1RSTLINE  were  added  to  FAVS,  and  the 
LANGUAGE  command  was  deleted. 

The  REPORT  command  selects  specific  reports  to  be  produced  during 
a  FAVS  run,  when  it  is  not  desired  to  produce  all  the  reports  normally 
produced  by  the  FAVS  options .  It  has  the  same  format  as  the  OPTION 
command ,  i .e. : 

REPORT  =  report  list 

Specified  report  names  must  be  separated  by  commas.  Blanks  within  the 
list  are  ignored.  This  command  may  appear  within  the  command  stream  in 
any  location  that  is  valid  for  the  OPTION  command.  The  REPORT  command 
cannot  exceed  80  characters;  continuation  onto  another  card  is  not 
recognized.  Instead  a  separate  REPORT  command  should  be  given,  or  its 
parameters  can  be  abbreviated. 

The  report  names  within  the  REPORT  command  are  as  follows: 


REPORT 

NAME 

MINIMUM 

ABBREVIATION 

REPORT 

GENERATED 

COMMONS 

CO 

Commons  summary 

PROFILE 

PR 

Statement  profile 

INVOCATIONS 

L 

Entries  and  invocations 
summary 

COMMONS /ENHANCED 

CO/E 

Common  matrices 

BANDS /n 

B  or  B/n 

Invocation  bands  (n*  number 
of  levels) 

SPACE 

SP 

Invocation  space 

SYMBOLS 

SY 

Symbol  report 

READS 

R 

I/O  statements 

CROSS 

CR 

Symbol  cross  reference 

PICTURE 

PI 

Picture  of  module  structure 
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The  COMMONS  and  PROFILE  reports  are  produced  by  the  SUMMARY  option;  the 
INVOCATION  report  is  included  in  both  the  SUMMARY  and  the  DOCUMENT 
options.  All  the  remaining  reports,  except  PICTURE,  are  produced  as 
part  of  the  DOCUMENT  option.  The  PICTURE  report  can  only  be  obtained  by 
using  the  REPORT  command.  It  is  not  included  in  any  of  the  options 
because  the  PICTURE  report  has  limited  use  for  DMATRAN  source  programs. 
Its  primary  function  is  to  delineate  the  control  flow  of  FORTRAN 
programs . 

If  the  entire  set  of  reports  produced  by  an  option  is  not  desired, 
do  not  use  the  OPTION  command;  instead  specify  the  appropriate  report 
names  in  the  REPORT  command.  If  the  same  report  is  requested  in  both 
the  OPTION  and  the  REPORT  command,  the  report  will  not  be  duplicated. 

The  FIRSTLINE  command  was  added  to  FAVS  in  order  to  make  FAVS 
easier  to  use  on  a  UNIVAC  1100/80.  When  either  the  INSTRUMENT  or 
RESTRUCTURE  option  is  selected,  the  instrumented  or  restructured  source 
program  is  written  on  UNIT  9.  The  user  may  use  the  command 

FIRSTLINE  =  (<run  stream  command>) 

to  specify  a  UNIVAC  run  stream  command  that  will  be  added  as  the  first 
line  of  every  element  of  the  source  program. 

For  example,  when  a  FORTRAN  source  program  is  to  be  instrumented, 
then  compiled  and  executed,  the  user  could  use  the  command, 

FIRSTLINE  =  (@F0R, I  TPF$.+). 

FAVS  will  insert  the  UNIVAC  command,  @F0R, I  TPF$. <element  name>  as  the 
first  line  of  each  element  (with  the  appropriate  element  name  following 
TPF$.  )  If  the  UNIVAC  FTN  compiler  is  being  used,  the  command  could  be 

FIRSTLINE  =  (@FTN, I  TPF$.+). 

If  the  source  code  is  written  in  DMATRAN  a  "C"  should  be  sub¬ 
stituted  for  the  because  the  DMATRAN  precompiler  must  be  used  to 


translate  the  DMATRAN  code  into  FORTRAN  before  compilation  by  the 
FORTRAN  compiler.*  During  the  translation,  the  DMATRAN  precompiler  will 
automatically  change  the  “C"  to  M@”  and  the  element  will  be  compiled  by 
the  compiler  that  is  specified.  The  appropriate  commands  would  be, 

FIRSTLINE  =  (CFOR, I  TPF$.+). 
for  the  UNIVAC  FOR  compiler  and, 

FIRSTLINE  =  (CFTN, I  TPF$.+). 
for  the  UNIVAC  FTN  compiler. 

Previously  FAVS  users  were  required  to  indicate  explicitly  (by  the 
LANGUAGE  command)  when  the  DMATRAN  structured  dialect  was  being  process¬ 
ed.  Now  FAVS  accepts,  as  standard  input,  source  written  in  UNIVAC 
FORTRAN  V,  UNIVAC  ASCII  FORTRAN,  or  the  DMATRAN  structured  dialect. 
Explicit  indication  of  the  language  dialect  is  no  longer  required. 

5.2  MODIFIED  REPORTS 

Major  changes  were  made  to  most  FAVS  reports  during  the  FAVS 
Enhancement  contract.  All  FAVS  reports  containing  source  text  lines  now 
display  the  original  source  text  rather  than  harder  to  use  reconstructed 
source  text.  The  previous  common  matrix  reports  and  library  dependence 
matrix  report  proved  to  be  hard  to  read  (especially  for  large  systems). 
They  have  been  replaced  by  tabular  reports  and  a  common  matrix  for  each 
common  block  rather  than  one  matrix  for  all  common  blocks.  The  read 
statements  report  has  been  expanded  into  an  I/O  statements  report.  The 
monolithic  cross-reference  report  was  divided  into  common  variable, 
external,  and  module  cross-references.  Splitting  the  static  report  into 
separate  static  and  symbol  reports  improves  the  usefulness  of  FAVS 
static  analysis.  Restructuring  now  utilizes  the  graph  checking  option 
of  STATIC  to  indicate  unreachable  statements  (which  will  not  be  included 
in  the  restructured  program). 

*See  DMATRAN  User's  Guide,  General  Research  Corporation  CR-1-673/I. 
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Statement  Listing 

Most  source  text  editors  are  line-number-oriented  or  tag  each 
source  line  with  a  unique  name.  It  is  essential  that  FAVS  source 
reports  contain  the  line  numbers  or  names  needed  to  edit  the  source 
text.  FAVS  users  previously  had  to  compare  FAVS  statement  listing 
reports  (Fig.  5.1)  to  source  listings  which  did  contain  appropriate 
editing  information.  This  can  be  an  awkward  and  time-consuming  task. 
Now,  FAVS  source  statement  listings  (Fig.  5.2)  contain  appropriate 
editing  information. 


STATEMENT  LISTING  SUBROUTINE  EXAMPL  C  IWO.  LENGTH  ) 


NO. 

LEVEL 

LABEL 

statement  text. 

DU PATHS 

1 

SUBROUTINE  EXAMPL  (  INFO.  LENGTH  ) 

(  1) 

4 

c 

1 

c 

ILLUSTRATION  OF  DMATRAN  SYNTAX 

4 

c 

5 

IF  (  INFO  .LE.  10  .AND.  LENGTH  ,GT.  0  )  THEN 

(  4-  4) 

6 

( 

1) 

.  CALL  CALLER  (  INFO  ) 

i 

ELSE 

6 

1 

1) 

.  LENGTH  =  50 

V 

ENU1  F 

iu 

CASEOF  (  INFO  i  b  ) 

(  4-  6) 

1 1 

CASE  (  14  ) 

14 

( 

l  ) 

.  LENGTH  =  LENGTH  -  INFO 

14 

CASE  (  1/  ) 

14 

( 

1) 

.  UOWhiLE  (  INFo  .  LT.  4u  ) 

(  7-  b) 

1 5 

( 

2) 

.  .  UOUNTIL  (  LENGTH  .LE.  INFO  ) 

lb 

( 

3  1 

.  .  .  INVOKE  (  COMPUTE  LENGTH  ) 

1  / 

1 

4) 

.  .  .  IF  (  LENGTH  .GE.  30  )  THEN 

(  S-  1U) 

la 

( 

4) 

.  .  .  .  INVOKE  (  PRINT-RESULTS  ) 

is 

( 

4) 

.  .  .  ENU1F 

40 

V 

4) 

.  .  ENUUNT1L 

(  11-  12) 

41 

( 

4) 

.  .  INFO  =  INFO  -r  1 

44 

( 

1) 

.  ENDWHILE 

24 

CASEELSE 

24 

( 

1  ) 

.  U0WH1LE  (  LENGTH  .GT.  0  ) 

(  13-  14) 

25 

( 

41 

.  .  INVOKE  (  COMPUTE  LENGTH  ) 

4b 

( 

1) 

.  ENUWI11LE 

4/ 

ENDCASE 

2b 

BLOCK  (  PRINT-RESULTS  ) 

(  15) 

2S 

( 

1) 

.  WRITE  (  6.  I  )  INFO.  LENGTH 

40 

( 

1) 

1 

.  FORMAT  (10X. 15.2UX. 15) 

31 

ENUBLOCK 

44 

BLOCK  (  COMPUTE  LENGTH  ) 

34 

( 

1) 

.  LENGTH  -  LENGTH  -  10 

34 

ENUBLOCK 

33 

RETURN 

46 

ENU 

This  report,  output  for  each  module  submitted  to  FAVS,  contains 
the  enhanced  module  listing  with  statement  numbers,  nesting  levels,  and 
DD-path  numbers  (at  procedure  entry  and  at  each  conditional  statement). 

Figure  5.1.  FAVS.O  Statement  Listing 
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STATEMENT  LISTING 
STMT  NEST  LINE  SOURCE... 


SUBROUTINE  EXAMPL  <  INFO. LENGTH) 


.  .  .SOURCE  TAB 


1 

1 

SUBROUTINE  EXAMPL  (INFO, LENGTH) 

2 

C 

3 
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ILLUSTRATION  OF  DMA TRAN  SYNTAX 
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2 

S 

IF  (INFO. L£. 10  .AND.  LENGTH . GT . 0 ) THEN 

3 

1 

6 

CALL  CALLER  (  INFO  ) 

4 

7 

ELSE 

5 

1 

8 

LENGTH-30 

6 

9 

END  IF 

7 

10 

CASE  OF  (INF 0+6) 

8 

11 

CASE  (14) 

V 

1 

12 

LENGTH-LENGTH- INFO 

10 

13 

CASE  (17) 

11 

1 

14 

DO  UHILE  (INFO. LT. 20) 

12 

2 

15 

DO  UNTIL  ( LENGTH. LE. INFO) 

13 

3 

16 

INVOKE  (COMPUTE  LENGTH) 

14 

3 

17 

IF  ( LENGTH. GE. 30)  THEN 

IS 

4 

18 

INVOKE  (PRINT-RESULTS) 

14 

3 

1? 

END  IF 

17 

2 

20 

END  UNTIL 

18 

2 

21 

INFO-INFO+1 

1? 

1 

22 

END  UHILE 

20 

23 

CASE  ELSE 

21 

1 

24 

DO  UHILE  (LENGTH. GT.O) 

22 

2 

2*5 

INVOKE  (COMPUTE  LENGTH) 

23 

1 

26 

END  UHILE 

24 

27 

END  CASE 

23 

28 

BLOCK  (PRINT-RESULTS) 

26 

1 

29 

URITE  (6.1) INFO. LENGTH 

27 

1 

30 

1  .  FORMAT  (10X,I3,20X,I3> 

28 

31 

END  BLOCK 

29 

32 

BLOCK  (COMPUTE  LENGTH) 

30 

1 

33 

LENGTH  -  LENGTH  -10 

31 

34 

END  BLOCK 

32 

35 

RETURN 

33 

36 

END 

EXAMPL 2 

EXAMPL3 

EXAMPL 4 

EXAMPL5 

EXAMPL  6 

EXAMPL7 

EXAMPL  B 

EXAMPL? 

EXAMPL 10 

EXAW>L11 

EXAMPL12 

EXAMPL 13 

EXAMPL 14 

EXAMPL15 

EXAMPL 16 

EXAMPL17 

EXAMPL18 

EXAMPL 19 

EXAMPL20 

EXAMPL21 

EXAMPL22 

EXAMPL23 

EXAMPL24 

EXAMPL2S 

EXAMPL26 

EXAMPL27 

EXAMPL 28 

EXAMPL29 

EXAMPL  30 

EXAWMJJl 

EXAMPL32 

EXAMPL  33 

EXAMPL34 

EXAMPL35 

EXAMPL 36 


This  report  contains  the  indented  module  listing  with  statement 
numbers,  source  line  numbers,  and  nesting  levels. 


Figure  5.2.  FAVS.4  Statement  Listing 


Invocation  Summary 

The  library  dependence  matrix  (Fig.  5.3)  was  replaced  with  the 
invocation  summary  report  (Fig.  5.4),  which  corrects  several  deficencies 
in  the  library  dependence  matrix  and  can  be  easily  understood  even  when 
a  large  number  of  modules  are  involved.  The  library  dependence  matrix 
report  was  limited  to  100  modules  and  it  did  not  appear  advisable  to 
increase  this  limit  and  retain  the  matrix  format,  since  the  number  of 
pages  required  to  print  the  matrix  would  go  up  as  the  square  of  the 
number  of  modules.  The  resultant  complexity  of  the  library  dependence 
matrix  reflects  the  matrix  format  rather  than  the  software  system  being 


analyzed.  With  the  new  invocation  summary  report,  the  complexity 
increases  in  direct  proportion  to  the  complexity  of  the  software  being 
analyzed.  The  invocation  summary  also  includes  entry  points  within 
FORTRAN  modules,  which  were  omitted  in  the  earlier  report. 
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MAIN 
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MOVEWD 
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PUTFTN 
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A 

STRUCT 

*  X  X 

X** 

X 

xxxxx 

xxxx 
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XX 
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AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

THE  FOLLOWING  MODULES  ARE  NOT  INVOKED  BY  ANY  MODLE  ON  THE  LIBRARY 

MAIN 


THE  FOLLOWING  MODULES  DO  NOT  INVOKE  ANY  MODULE  ON  THE  LIBRARY 
EXAMPL  KEMPTY 


The  interaction  of  all  modules  on  the  data  base  library  is  shown 
in  the  first  matrix.  If  the  library  contains  all  modules  in  the  user's 
program,  this  report  provides  a  concise,  complete  picture  of  the  total 
internal  module  dependencies.  If  the  library  contains  a  subset  of  the 
total  program,  this  report  aids  in  determining  what  modules  do  not 
interact  with  the  component  and  might  be  better  suited  for  another 
component.  The  modules  are  listed  in  alphabetical  order. 

The  modules  in  the  second  matrix  are  not  resident  on  the  library. 
If  the  library  allegedly  contains  all  modules  in  the  program,  the 
external  modules  should  consist  only  of  system  routines.  If  the  library 
contains  a  component  of  the  total  program,  this  report  shows  the  module 
invocation  interfaces  to  other  externals. 

Considering  the  modules  on  the  library  as  a  pyramid  representing 
the  invocation  hierarchy  of  the  modules,  this  report  also  identifies  the 
"top"  and  "bottom"  modules  in  the  system. 

Figure  5.3.  FAVS.O  Library  Dependence  Matrix 
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INVOCATION  SUMMARY 


:  ! 

ENTRY  LISTS  OF  CALLS  '  ! 


PUT l ST  WHICH  IS  DEFINED  IN  GETBLK 

IS  CALLED  BY  -  -NONE 
AND  CALLS  -  GETFRG  MAKFRG 

PUTWRD  WHICH  IS  DEFINED  IN  GETBLK 

IS  CALLED  BY  ■  PUTBEF  PUTBOT 
AND  CALLS  -  GETFRG  MAKFRG 

/MIT  WHICH  IS  UNDEFINED 

IS  CALLED  BY  GETBLK  NEXT 

THE  FOLLOWING  ENTRIES  ARE  NOT  CALLED 

GETBLK  GETL.ST 


XMIT 


XMIT 


PREV 

PUTAT 

PUTBEF 

PUTBOT 

GETWRD 

ISRTAB 

NEXT 

PREV  PUTAT 

This  report  shows  the  dependencies  of  the  modules  in  the  library 
by  listing  all  modules  which  call  an  entry  point  and  all  calls  from  that 
entry  point.  If  an  entry  is  defined  as  an  entry  point  within  a  module, 
the  name  of  that  module  is  indicated.  This  report  includes  all  modules 
and  entries  on  the  restart  file.  An  updated  version  of  the  report  may 
be  obtained  by  reanalyzing  all  changed  modules  and  using  the  EXPAND 
option.  The  actual  statements  where  invocations  to  a  given  entry  point 
occur  can  be  found  in  the  externals  cross  reference  report. 


Figure  5.4.  FAVS.4  Invocation  Summary 
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Common  Summary 


The  common  matrix  report  (Fig.  5.5)  was  replaced  by  the  common 
summary  report  (Fig.  5.6).  The  rationale  for  this  change  was  similar  to 
that  discussed  above.  The  number  of  pages  necessary  to  produce  this 
report  reflects  the  matrix  format  rather  than  the  complexity  of  the 
system  analyzed.  The  tabular  format  of  this  report  allows  the  100 
module  limit  to  be  eliminated. 
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This  report  listed  all  modules  and  all  common  blocks 
X"  indicates  the  presence  of  that  common  in  a  module. 


Figure  5.5.  FAVS.U  Commons  Matrix 
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Figure  5.6.  FAVS.4  Common  Summary 
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Common  Matrix  (Enhanced) 

The  earlier  FAVS  common  matrix  (enhanced)  (Fig.  5.7)  suffered  from 
the  same  artificial  complexity  problems  as  the  other  matrix  reports.  In 
addition,  the  use  of  a  common  number  to  identify  the  common  block  a 
variable  was  defined  in  led  to  considerable  confusion.  A  report  with 
more  detail  than  the  common  summary,  but  less  detail  than  the  common 
cross  reference,  was  desired.  The  solution  to  these  concerns  was  a 
separate  matrix  for  each  common  block.  This  matrix  displays  the  use  of 
common  variables  within  a  set  of  related  modules  (which  all  use  some 
variable  in  the  common).  An  example  of  the  new  common  matrix  report  is 
shown  in  Fig.  5.8. 
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Two  matrices  are  produced  by  this  report.  The  first  one  lists  all 
common  blocks  encountered  in  any  one  of  the  modules  in  the  set  which  was 
analyzed.  If  at  least  one  symbol  was  used,  it  is  indicated  with  an  "X". 
If  no  symbol  was  ever  referenced  in  the  module,  this  is  indicated  by  a 
"0".  Routines  from  which  a  common  block  may  safely  be  removed  are 
easily  found. 

The  second  matrix  lists  only  the  symbols  which  are  used  by  some 
module;  the  number  of  the  common  block  in  which  it  is  found  is  printed 
to  the  left  and  corresponds  to  the  number  given  to  the  common  block  in 
the  first  matrix.  This  report  is  an  excellent  aid  when  changes  are 
being  made  to  a  software  system. 


Figure  5.7.  FAVS.O  Common  Matrix  (Enhanced) 
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The  common  matrices  report  lists  symbols  which  are  used  by  at 
least  one  of  the  modules  on  the  restart  file.  The  symbol  usage  is 
explained  in  the  legend  at  the  top  of  the  report;  a  blank  space  indi¬ 
cates  that  the  symbol  is  not  used  in  any  way  in  that  particular  module. 
The  symbols  within  each  common  are  listed  alphabetically  in  this  report. 
Only  modules  which  use  at  least  one  variable  of  a  common  block  will 
occur  in  the  matrix  for  that  common.  This  report  includes  all  commons 
and  modules  on  the  restart  file.  An  updated  version  of  this  report  may 
be  produced  by  reanalyzing  all  changed  modules  and  using  the  EXPAND 
option.  When  all  modules  in  a  software  system  have  been  entered  onto  a 
RESTART  file,  this  report  can  be  used  to  check  for  global  set/use 
inconsistencies.  A  row  of  one  or  more  U's  indicates  that  a  common 
variable  is  used  but  not  set.  A  row  of  one  or  more  S’s  indicates  a 
common  variable  which  is  set  but  not  used.  A  common  variable  which  is 
not  included  in  the  matrix  is  never  referenced  in  an  executable  state¬ 
ment.  The  statement  number  where  common  variables  are  referenced  can  be 
found  in  the  common  variable  cross  reference  report. 


Figure  5.8.  FAVS.4  Common  Matrices 


I 
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Static  Report 

The  use  of  static  analysis  as  a  consistency  checking  tool  was 
emphasized  by  splitting  the  former  static  analysis  report  (Fig.  5.9) 
into  a  static  analysis  report  (Fig.  5.10)  which  contains  all  consistency 
diagnostics  after  an  appropriate  source  line,  and  a  separate  symbols 
report  (Fig.  5.11)  for  symbol  table  information.  The  new  static 
analysis  report  contains  actual  source  text  lines  as  read  in,  summarizes 
unknown  externals  at  the  end,  and  provides  a  complete  cross-reference 
for  variables  which  may  have  set/use  inconsistencies.  The  symbol  report 
is  now  alphabetically  ordered.  It  omits  the  first  statement,  last 
statement,  and  total  uses  information,  which  is  better  described  in  the 
module  cross-reference  report  (Fig.  5.14).  In  addition,  an  abbreviated 
form  of  the  static  analysis  report  is  available  (Fig.  5.12)  which  lists 
only  the  source  lines  related  to  inconsistencies. 
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static  analysis 


SUBROUTINE  CIRCLE  (  AREA  ) 


SEQ  NEST  SOURCE 


UNKNOWN  EXTERNALS 


1  SUBROUTINE  CIRCLE  (  AREA  ) 

2  COMMON  I  VALUES  /  DIAMTR 

3  INTEGER  AREA 

4  RADIUS  -  DIAMTR  /  2 

5  AREA  -  PI  -  RADIUS  *’  2 


MODE  WARNING 

-  LEFT  HAND  SIDE  HAS  MODE  INTEGER  RIGHT  HAND  SIDE  HAS  MODE  REAL 


6  IF  (  AREA  .GT.  50  )  THEN 

7(1)  .  CALL  PRNT  (  AREA  ) 


CALL  ERROR 

PRNT  CALLED  WITH  1  ACTUALLY  HAS  2  ARGUMENTS 


CALL  ERROR 

-PARAMETER  1  OF  PRNT  .ACTUAL  PARAMETER  HAS  MODE  INTEGER 
.FORMAL  PARAMETER  HAS  MODE  REAL 


8  END  IF 

9  RETURN 

10  CALL  STACK  (  RADIUS,  AREA  ) 


GRAPH  WARNING 

STATEMENT  10  IS  UNREACHABLE  OR  IS  IN  AN  INFINITE  LOOP 


U 


END 


STATEMENT  ANALYSIS  SUMMARY  ERRORS  WARNINGS 


GRAPH  CHECKING  0  1 
CALL  CHECKING  2  0 
MODE  CHECKING  0  1 


NAME 

SCOPE 

MODE 

1ST 

STMT 

TOTAL 

USES 

LAST 

STMT 

IN /OUT  ACTUAL  PHYSICAL 

USE  USE  UNITS 

AREA 

PARAMETER 

INTEGER 

1 

6 

10 

BOTH 

DIAMTR 

values 

REAL 

2 

2 

4 

INPUT 

RADIUS 

LOCAL 

REAL 

4 

3 

10 

PI 

LOCAL 

REAL 

5 

l 

5 

_ 

SET/USE 

WARNING 

- 

- 

VARIABLE  PI 

MAY 

BE  USED 

before 

BEING  ASSIGNED  A  VALUE 

STACK 


SYMBOL  ANALYSIS  SUMMARY  ERRORS  WARNINGS 


SET/USE  CHECKING 


0 


1 


The  Statement  Analysis  Summary  contained  the  warning  and  error 
messages  interspersed  appropriately  in  the  code.  Unknown  externals, 
routines  called  which  were  not  in  the  set  submitted  to  FAVS,  were  listed 
on  the  right  side  of  the  printout.  A  tabulation  of  the  errors  and 
warnings  was  listed  at  the  bottom. 

The  Symbol  Analysis  Summary  showed  the  name,  scope,  and  mode  of 
each  symbol  in  any  executable  statement  in  the  module.  The  actual  use 
of  global  variables  was  defined  as  INPUT,  OUTPUT,  or  BOTH.  For  any 
variable  that  was  used  before  being  assigned  a  value  or  set  and  not 
used,  a  warning  indicated  the  condition  which  could  lead  to  errors. 

Figure  5.9.  FAVS.O  Static  Analysis  Report 
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STATIC  ANALYSIS 
SINT  NEST  LINE  SOURCE... 


SUBROUTINE  CIRCLE  <  AREA  ) 


.SOURCE  TAB 


SUBROUTINE  CIRCLE  <  AREA 

INTEGER  AREA 

DATA  PI  /  3. 1416  / 

INPUT  (/R/  RADIUS  ) 
RADIUS  “  DIAMTR  /  2 


-  VARIABLE  DIAMTR 
5 


SET/USE  ERROR 
USED  BUT  NEVER  SET 


REFER  TO  STATEMENT <S)- 


AREA  -  PI  *  RAD I US 4*2 


MODE  WARNING 

-  LEFT  HAND  SIDE  HAS  MODE  INTEGER  RIGHT  HAND  SIDE  HAS  MODE  REAL 


<  AREA  .GT.  50  )  THEN 
CALL  PRINT  <  AREA  ) 


-PARAMETER  1  OF  PRINT 


MODE  UARNING 

ACTUAL  PARAMETER  HAS  MODE  INTEGER 
FORMAL  PARAMETER  HAS  MODE  REAL 


PRINT 


CALL  ERROR 

CALLED  WITH  1  ACTUM-LY  HAS  2  ARGUMENTS 


9 

10 

END  IF 

10 

11 

OUTPUT  (/R/  AREA  ) 

11 

13 

RETURN 

12 

14 

CALL  STACK  (  RADIUS. 

AREA  > 

_ 

GR^H  UARNING 

- 

STATEMENT  12 

IS  UNREACHABLE  OR  IS  IN  AN  INFINITE  LOOP 

13 

15 

END 

STATIC  ANALYSIS  SUMMARY 


ERRORS  WARNINGS 


GRAPH  CHECKING  0  1 

CALL  CHECKING  1  0 

MODE  CHECKING  0  2 

SET/USE  CHECKING  1  0 

CALL  CHECKING  WAS  NOT  PERFORMED  FOR  THE  FOLLOWING  UNKNOWN  EXTERNALS 
STACK 


The  Static  Analysis  Summary  contains  the  warning  and  error 
messages  interspersed  appropriately  in  the  code.  Unknown  externals 
(routines  called  which  are  not  in  the  set  submitted  to  FAVS)  are  listed 
at  the  bottom  of  the  report.  A  tabulation  of  the  errors  and  warnings  is 
listed  at  the  bottom. 


Figure  5.10.  FAVS. 4  Static  Analysis  Report  (with  LIST  option) 
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S  I'M  HOLS 

SUBROUTINE 

SDBASA  < 

MODULE.  I STMT.  IRETRN  ) 

NAME 

SCOPE 

TYPE 

MODE 

USE 

OTHER  INFORMATION.  . 

NXPAK 

K DEL MS 

OAK  I ABLE 

INTEGER 

USED 

KXFARM 

RP TCOM 

OAR TABLE 

] NTEGER 

USED 

KXTPLS 

RPTCOM 

OAR 1 ABLE 

INTEGER 

USED 

L  1ST 

MTHSTO 

ARRAY 

IN  TEGER 

SET/USED 

MAKGS 

MDB 

OAR I AM F 

INTEGER 

SET 

MBLCJKS 

MDB 

OAR  I  ABLE 

) N TEGER 

EQUIO 

MBRCHN 

MTHTYP 

OAR I ABLE 

INTEGER 

USED 

MCALL 

MTHTYP 

OAR I API  E 

INTEGER 

USED 

mcio 

MTH1 YP 

VARIABLE 

INTEGER 

USED 

MCMMNS 

MDB 

OAR I ABLE 

INTEGER 

SET /USED 

MDUM26 

( LOCAL ) 

OAR I ABLE 

INTEGER 

EOUIO 

MENTR 

MTHIYP 

OARIABL F 

J  N  TEGER 

USED 

MEN IRS 

MDB 

OAR I ABLE 

INTEGER 

SET/USED 

MENTR2 

MTHTYP 

OAR TABLE 

INTEGER 

USED 

MLQL.S 

(LOCAL) 

OAR I ABLE 

INTEGER 

SET/USED 

MEQUOS 

MDB 

OAR  1  API  F 

INTEGER 

SET/USED 

MEXEC 

MTHTYP 

OAR I ABLE 

INTEGER 

USED 

MEXir 

MTHTYP 

OAR I ABLE 

INTEGER 

USED 

MGOTO 

MTHTYP 

OAR I ABLE 

INTEGER 

USED 

MIF 

MTHTYP 

VARIABLE 

INTEGER 

USED 

MJUNCT 

MTHTYP 

OARIABI  f 

INTEGER 

USED 

MMOtiE 

MDB 

VARIABLE 

INTEGER 

SET/USED 

MNAMt 

MDB 

VARIABLE 

INTEGER 

ECU  10 

MNONX 

MTHTYP 

VARIABLE 

INTEGER 

USED 

MODULE 

PARAMETER 

VARIABLE 

INTEGER 

MPRSET 

MTHTYP 

VARIABLE 

INTEGER 

USED 

MREAD 

MTHTYP 

VARIABLE 

INTEGER 

USED 

MREADS 

MDB 

VARIABLE 

INTEGER 

SET /USED 

MTYPE 

MDB 

OARIABL F 

INTEGER 

SET 

MUR ITS 

MDB 

VARIABLE 

INTEGER 

SET/USED 

NONEXS 

(LOCAL) 

ARRAY 

INTEGER 

SET/USED 

NUMEXS 

(LOCAL ) 

VARIABLE 

INTEGER 

SET/USED 

NUMNON 

(LOCAL) 

VARIABLE 

[NT  EGER 

SET/IJSED 

1HE.  FOLLOWING  LOCAL  VAKIAKLLS  WERE  DEFINED  BUT  NOT  USED... 
TOKADD 


THE  FOLLOWING  NONLOCAL  VARIABLES  ARE  St  I  .  .  . 

IRETRN  MTYFF  MMODF  MEMMNS  MfNTRS  MARGS  MFOUVS  MRFADS  MURTTS  TSTYPE  ISCODE 
IS1NFIJ  LIS! 


This  report  is  generated  for  each  module  analyzed  during  a  FAVS 
run.  The  symbols  are  ordered  alphabetically,  and  symbols  which  are  only 
defined  and  never  referenced  are  not  included.  Symbols  which  have  the 
scope  (LOCAL)  are  known  only  within  the  module  being  reported  on. 
Symbols  with  the  scope  parameter  are  formal  parameters  for  the  module. 
All  other  scope  classifications  indicate  the  name  of  the  common  block 
the  common  variables  are  defined  in.  Each  symbol  is  either  of  type 
variable  or  array,  and  of  mode  integer,  real,  logical,  character, 
complex,  or  double  precision.  The  use  column  provides  a  summary  of  how 
the  symbol  is  used  in  the  module.  Local  symbols  which  were  defined  but 
not  referenced  and  all  non-local  variables  (parameters  and  common 
variables)  which  are  set  within  the  module  are  noted  at  the  end  of  the 
report . 


Figure  5.11.  FAVS.  4  Symbols  Report 


STATIC  ANALYSIS  SUBROUTINE  CIRCLE  <  AREA  ) 

STMT  NEST  LINE  SOURCE... 


S  A  RADIUS  -  DIAMTR  /  2 


SET/USE  ERROR 

-  VARIABLE  DIAMTR  USED  BUT  NEVER  SET  REFER  TO  STATEMENTS)- 


7  AREA  *  PI  •  RADIUS**? 


NODE  UARNING 

-  LEFT  HAND  SIDE  HAS  NOSE  INTEGER  RIGHT  HAND  SIDE  HAS  NODE  REAL 


8  9  CALL  PRINT  <  AREA  ) 


-PARAMETER  1  OF  PRINT 

MODE  UARNING 

ACTUAL  PARAMETER  HAS 
FORMAL  PARAtCTER  HAS 

NODE  INTEGER 

MODE  REAL 

- 

CALL  ERROR 

PRINT  CALLED 

UITH  1  ACTUALLY  HAS 

2  ARGUMENTS 

- 

CALL  STACK  (  RADIUS.  AREA 

) 

GRAPH  UMtNXNG 

STATEMENT  12  IS  UNREACHABLE  or  is  in  an  infinite  loop 


...SOURCE  TAB 


STATIC  ANALYSIS  SUMMARY  ERRORS  DARN I NOS 


GRAPH  CHECKING  0  1 

CALL  CHECKING  1  O 

MODE  CHECKING  0  2 

SET/USE  CHECKING  l  O 

CALL  CHECKING  UAS  NOT  PERFORMED  FOR  T*  FOLLOWING  UNKNOUN  EXTERNALS  .  .  . 
STACK 


This  report  is  an  abbreviated  version  of  the  Static  Analysis 
report  generated  when  the  STATIC  and  LIST  options  are  both  used  (Fig. 
5.10).  Only  the  statements  that  cause  errors  or  warnings  are  listed  in 
the  Static  Analysis  report  when  the  STATIC  option  is  specified  without 
the  LIST  option. 

Figure  5.12.  FAVS.  4  Static  Analysis  Report  (without  LIST  option) 


5-21 


Cross  Reference 

The  single  FAVS.O  cross  reference  report  (Fig.  5.13)  has  been 
divided  into  a  cross  reference  for  each  module  (Fig.  5.14),  a  common 
variable  cross  reference  (Fig.  5.15),  and  an  external  cross  reference 
(Fig.  5.16).  The  earlier  cross  reference  did  not  indicate  whether  a 
symbol  was  an  external,  a  common  variable,  or  a  variable  local  to  a 
particular  module.  Now  this  information  is  clearly  shown  in  the  three 
new  cross  references. 
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CROSS  REFERENCE 


GENERAL  CROSS  REFERENCE  LISTING 


MODULES  INCLUDED  — 
CONTRL 
CON'T 
EXAM  PL 
FULCON 
KEMPTY 
MAIN 
MOVEWD 
PUTFTN 
STRUCT 


SYMBOL 

MODULE 

USED/SET/DEFINITION  ( 

ACT  1 

CONTRL 

172 

ACT  2 

CONTRL 

174 

ASSIGN 

STRUCT 

180 

BGSCAN 

CONTRL 

16o 

CONTRL 

CONTRL 

1 

MAIN 

2 

CO  NT 

CONT 

1 

FULCON 

14 

STRUCT 

86 

103 

124 

153 

ENDER 

CONTRL 

183 

ERROR 

STRUCT 

53 

107 

111 

113 

EXAMPL 

EXAMPL 

1 

MOVEWD 

33 

FULCON 

FULCON 

1 

STRUCT 

84 

101 

122 

137 

GENASS 

STRUCT 

341 

GENGO 

"TRUCT 

369 

GENLAB 

STRUCT 

73 

81 

85 

98 

281 

283 

291 

299 

GENVAR 

STRUCT 

179 

208 

CETSTM 

CONTRL 

164 

GOTO 

STRUCT 

82 

99 

150 

162 

IARRYI 

MOVEWD 

1 

23D 

29* 

IARRY 

MOVEWD 

1 

22D 

29 

ICONT 

CONT 

240 

250 

25D 

25D 

I  EOF 

CONTRL 

29D 

165 

180 

KEMPTY 

5D 

I ERROR 

STRUCT 

92* 

93 

94* 

95 

243 

253* 

254. 

265 

INDICATES  SET,  D  INDICATES  DEFINITION  ) 


165 

202 

236 

258  ' 

262 

292 

303 

306 

345 

128 

130 

169 

171 

213 

217 

219 

240 

244 

160 

199 

234 

255 

27  5 

298 

102 

123 

139 

141 

149 

152 

161 

164 

195 

302 

305 

339 

340 

357 

360 

371 

196 

232 

278 

300 

343 

358 

25D 

25D 

25D 

250 

25D 

28 

110 

120* 

121 

127 

158* 

159 

168 

190* 

191 

296* 

297 

309 

This  report  provided  a  symbol  cross  reference  listing  for  all 
modules  on  the  library.  The  symbol  types  where  variables,  file  names, 
block  names,  and  subprogram  names.  Adjacent  to  the  statement  number  of 
the  symbols  appearance  was  a  flag  ,  (or  D)  which  indicated  setting  or 
definition . 


Figure  5.13.  FAVS.  0  Cross  Reference  Report 


CROSS  Kk  F  EktNCE 


SUBRniJIINF  SDBASA  (  MODULE,  ISTMT,  IRETRN  ) 


NAMf  SCOFF;  MODULE  USED/Str/EUUIUALENCED  (  *  INDICATES  SET  ) 


ADDEF'  1 

EXTERNAL 

SDBASA 

i. 

84 

250 

CALLED 

< LOCAL > 

SUB ASA 

24* 

274 

275* 

ERROR 

EXTERNAL 

SDBASA 

15  J 

1 

(LOCAL.) 

S DBAS A 

48* 

49 

50 

51  * 

51 

75* 

76 

77 

78* 

78 

120* 

121 

J  45 

14c 

1.6 1  * 

162 

171* 

17? 

172 

173* 

173 

175 

1  77 

191* 

??? 

228 

342* 

343 

343 

344* 

344 

346 

353* 

354 

354 

355* 

IAGT 

ANSI 

S DBAS A 

14? 

IBAFAR 

EXTERNAL. 

SBBASA 

i  1  5 

1  70 

2J0 

ICGT 

ANSI 

SBBASA 

J  4  7 

I COMAS 

(LOCAL) 

SBBASA 

l  IV* 

123* 

123 

1  27 

IDUM 

(LOCAL ) 

SBBASA 

37 

54 

13V 

169 

1DX 

(LOCAL) 

SBBASA 

32* 

33 

33 

33 

34* 

34 

36 

41 

41 

43 

49 

56 

76 

80* 

80 

82* 

82 

84 

I  END 

ANSI 

SBBASA 

307 

IENT 

ANSI 

SBBASA 

246 

316 

IEXECS 

(LOCAL) 

SBBASA 

307* 

308* 

309* 

310* 

31  l* 

312* 

313* 

314* 

315* 

316* 

317* 

318* 

327* 

328* 

329* 

330* 

331* 

332* 

333* 

334* 

335* 

336* 

337* 

354 

IF  1 

ANSI 

SBBASA 

113 

300 

1  F2 

ANSI 

SBBASA 

128 

IF  3 

ANSI 

SBBASA 

J  31 

IGT 

ANSI 

SBBASA 

136 

31  J 

IGTTGK 

EXT  ERNAL 

SBBASA 

137 

IMDB 

(LOCAL.) 

SBBASA 

10E 

I  FAR 

(LOCAL) 

SBBASA 

1 1  S* 

116 

11/ 

1 30 

170* 

172 

175 

180* 

182 

182 

184 

IREAIC 

FTNEXT 

SBBASA 

235 

I  RET 

ANSI 

SBBASA 

188 

315 

IRETRN 

PARAMETE 

SBBASA 

25* 

269* 

ISC.LAS 

EXTERNAL 

SBBASA 

138 

I SCODE 

sub 

SBBASA 

29* 

67* 

8V* 

97* 

112* 

114* 

1 18* 

140* 

1 55* 

159* 

167* 

176* 

I  SOB 

(LOCAL) 

SBBASA 

16E 

ISEXEC 

(LOCAL.) 

SBBASA 

1 1 1 

358* 

360* 

ISINFO 

SDK 

SBBASA 

31* 

129* 

132* 

139* 

169* 

199* 

:>04* 

210* 

212 

215 

228* 

249* 

ISLABL 

SUB 

SBBASA 

16E 

ISLONG 

SDB 

SBBASA 

33 

36 

37 

41 

59 

70 

73 

115 

116 

121 

139 

142 

192 

206* 

206 

210 

224 

227 

ISNONX 

<  LOCAL ) 

SBBASA 

88 

347* 

349* 

ISPTR 

SOB 

SBBASA 

117* 

145* 

177* 

184* 

185 

216* 

234 

240 

ISTMT 

FARAMETE 

SBBASA 

65 

84 

103 

250 

ISTOP 

ANSI 

SBBASA 

188 

190 

318 

ISTTf'E 

SOB 

SBBASA 

27 

27 

27 

42* 

59 

64 

74* 

90 

93 

96 

99 

100* 

166 

188 

188 

190 

198 

203 

208 

208 

208 

208 

208 

208 

252 

255 

255 

255 

343 

354 

ITEM 

(LOCAL.) 

SBBASA 

137* 

138 

IVMODE 

EXTERNAL 

SBBASA 

54 

IURTEC 

FTNEXT 

SBBASA 

241 

IXABNL 

FTNEXT 

SBBASA 

302 

IXASS 

ANSI 

SBBASA 

252 

317 

This  report  provides  a  symbol  cross  reference  for  each  module 
analyzed  during  a  FAVS  run.  All  local  symbols,  external  symbols,  and 
common  symbols  referenced  in  the  module  are  included.  Symbol  names  in 
the  first  column  are  ordered  alphabetically.  The  scope  column  indicates 
symbols  known  only  within  this  module  (LOCAL),  external  symbols,  and 
symbols  which  are  defined  in  common  blocks  included  in  the  module  (all 
others).  Statements  (FAVS  statement  numbers)  which  use  a  symbol  are 
followed  by  a  blank,  statements  which  set  a  symbol  are  followed  by  a 
and  equivalence  statements  containing  the  symbol  are  followed  by  an 

'E' . 

Figure  5.14.  FAVS. 4  Cross  Reference  (Individual  Module) 
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CROSS  REFERENCE 


NAME  SCORE  MODULE  USED/SE  T/FOUl UAL  ENCED  (  *  1ND  fr.ATF  S  SF  I 


A I  DBG 

DBGCOM 

ISRTAB 

82 

CORE 

GETBLK 

26E 

ISRIAB 

25E 

NEXT 

I8E 

PREY 

18E 

PUT  AT 

18F 

PUT  BE F 

18L 

PUTBOT 

1.8E 

FLCXXX 

aisto 

GETBLK 

14 A  190 

AISTO 

ISRTAB 

67 

AISTO 

NEXT 

39 

AISTO 

PREY 

39 

AISTO 

PUT  AT 

33 

AISTO 

PUTBEF 

43 

AISTO 

PUT BO r 

43 

FNUXXX 

AISTO 

GETBLK 

142  187 

AISTO 

ISRTAB 

62 

AISTO 

NEXT 

36 

AISTO 

PREV 

36 

AISTO 

PIJTAT 

30 

AISTO 

PUTBEF 

40 

AISTO 

PUTBOT 

40 

FRGDIR 

POOLCM 

GETBLK 

149*  193* 

POOLCh 

ISRTAB 

7V* 

POOLCM 

NEXT 

43* 

POOLCM 

PREV 

43* 

POOLCh 

PUTAT 

38* 

POOt.CM 

PUTBEF 

50* 

POOLCh 

PUTBOT 

MO* 

FRGXXX 

AISTO 

GETBL  K 

148  19? 

AISTO 

ISRTAB 

79 

AISTO 

NEXT 

43 

AISTO 

PREY 

43 

AISTO 

PUTAT 

38 

AISTO 

PUTBEF 

MO 

AISTO 

PUTBOT 

MO 

FSZXXX 

AISTO 

GETBLK 

140  141 

AISTO 

ISRTAB 

66 

ICHXXX 

AISTO 

GETBLK 

56*  81* 

AISTO 

PUTAT 

35* 

AISTO 

PUTBEF 

47* 

AISTO 

PUTBOT 

47* 

IXXXXX 

AISTO 

GETBLK 

147*  147 

AISTO 

ISRTAB 

78*  78 

AISTO 

NEXT 

42*  42 

AISTO 

PREY 

42*  42 

AISTO 

PUTAT 

37*  37 

190  231  2 66 


227  261 


240*  26.0* 


192  2 <10  268 


185  186  216  21  r  220  348  249 

118*  168*  235* 


149  191*  191  |V3  239*  739  240 

79 
43 

43 

38 


267*  267 


368 


This  multi-module  report  shows  where  variables  in  common  blocks 
are  used,  set  or  equivalenced.  The  report  is  alphabetically  ordered  by 
the  name  of  the  common  variable.  The  common  block  which  contains  the 
variable  is  indicated  in  the  scope  column.  Modules  which  reference  the 
common  variable  are  alphabetically  ordered  in  the  module  column. 
Statements  (FAVS  statement  numbers)  within  each  module  are  shown  next. 
A  blank  following  the  statement  number  indicates  the  variable  is  used 
there,  a  indicates  the  variable  is  set,  and  an  'E'  indicates  the 
variable  is  equivalenced.  This  report  is  produced  for  all  modules  and 
all  commons  on  the  restart  file.  An  updated  version  may  be  obtained  by 
reanalyzing  all  changed  modules  and  using  the  EXPAND  option.  A  summary 
of  the  information  in  this  report  is  provided  in  the  common  matrices 
report . 


Figure  5.15.  FAVS.  4  Cross  Reference  (Common  Variables) 
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CROSS  REFERENCE 


NAME  SCOPE  MODULE  USED /SET /EQU I VAL.ENCED  (  *  INDICATES  SET  ) 


EROR 

EXTERNAL 

ISRTAB 

87 

FREL  NK 

EXTERNAL 

PUTBEF 

31 

EXTERNAL 

PUTBQT 

29 

31 

GETFRG 

EXTERNAL 

GETBLK 

27.2 

EXTERNAL 

ISRTAB 

63 

EXTERNAL 

NEXT 

37 

EXTERNA! 

FRED 

37 

EXTERNAL. 

PUTAT 

31 

EXTERNAL 

PUTBEF 

41 

EXTERNAL. 

PUTBOT 

41 

IGTURD 

EXTERNAL 

NEXT 

31 

33 

EXTERNAL 

PREY 

31 

33 

EXTERNAL 

PUTBEF 

32 

EXTERNAL 

PUTBOT 

35 

ITSFRG 

EXTERNAL 

ISRTAB 

60 

EXTERNAL. 

NEXT 

35 

EXTERNAL 

PREV 

35 

EXTERNAL 

PUTAT 

29 

EXTERNAL. 

PUTBEF 

39 

EXTERNAL 

PUTBOT 

39 

LGTMLT 

EXTERNAL 

ISRTAB 

52 

53 

MAKFRG 

EXTERNAL 

GETBLK 

224 

MINO 

EXTERNAL 

ISRTAB 

66 

PUTWRD 

EXTERNAL 

PUTBEF 

33 

35 

EXTERNAL 

PUTBOT 

32 

36 

XMIT 

EXTERNAL 

GETBLK 

45 

55 

EXTERNAL 

NEXT 

40 

46 

EXTERNAL 

PREY 

40 

46 

EXTERNAL 

PUTAT 

34 

EXTERNAL 

PUTBEF 

44 

EXTERNAL 

PUTBOT 

44 

This  multi-module  report  shows  the  FAVS  statement  number  where 
each  external  is  referenced.  The  report  is  alphabetically  ordered  by 
the  name  of  the  external.  Modules  which  reference  the  external  are 
alphabetically  ordered  in  the  module  column.  Statements  (FAVS  statement 
numbers)  within  each  module  are  shown  in  the  next  column.  This  report 
is  produced  for  all  modules  on  the  restart  file.  An  updated  version  may 
be  obtained  by  reanalyzing  all  changed  modules  and  using  the  EXPAND 
option.  A  summary  of  information  contained  in  this  report  is  provided 
by  the  Invocation  Summary  Report.  The  text  of  each  invocation  can  be 
found  by  referring  the  FAVS  statement  listing  or  Invocation  Report  for 
each  module.  Note  that  these  reports  are  not  generated  from  the 
restart  file  but  rather  from  source  analyzed  during  a  FAVS  run. 


Figure  5.16.  FAVS. A  Cross  Reference  (Externals) 


Restructure 

The  statement  listing  produced  during  restructuring  has  been 
enhanced  to  indicate  any  structurally  unreachable  statements.  These 
statements  will  not  be  included  in  the  restructured  source.  An  example 
of  this  report  is  shown  in  Fig.  5.17. 
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STATIC  ANALYSIS 


SUBROUTINE  BSORT  (  N.  ARRAY  ) 


STMT  NEST  LINE  SOURCE...  .  .  .SOURCE  TAB 


1 

1 

SUBROUTINE  BSORT  (  N.  ARRAY  ) 

2 

2 

DIMENSION  ARRAY  (  100  > 

3 

3 

DO 

1  I  -  2.  N 

4 

1 

4 

IF  !  ARRAY ( 1-1 )  ,LE.  ARRAY! I >  )  00  TO  1 

6 

1 

5 

SMALL  =  ARRAY ( I ) 

7 

1 

6 

ARRAY! I)  =  ARRAY! I-t> 

8 

1 

7 

1 

J  -  I  -  2 

9 

1 

8 

2 

IF  !  J  .LT.  1  >  GO  TO  4 

11 

1 

9 

IF  !  SMALL  . LT .  ARRAY!  J)  >  GO  TO  3 

13 

1 

10 

4 

ARRAY! J+l>  *  SMALL 

14 

1 

11 

DO  TO  1 

15 

1 

12 

3 

M*RAY!J+1)  =  ARRAY! J) 

16 

1 

13 

J  -  J  -  1 

17 

1 

14 

GOTO  2 

18 

15 

1 

CONTINUE 

19 

16 

RETURN 

20 

17 

END 

STATIC  ANALYSIS  SUMMARY  ERRORS  UARNINQ6 


GRAPH  CHECKING 


0  0 


It 


This  report 
is  enhanced  by 


is  a  source  listing  of  the  original  FORTRAN  module, 
indentation  and  statement  and  nesting  level  numbers. 


Figure  5. 17.  Restructure  Report 


Two  new  reports  were  added  to  FAVS.  The  picture  report  (Fig. 
5.] 8)  can  be  used  to  pictorally  display  the  branching  structure  of  large 
FORTRAN  programs.  It  essentially  combines  a  source  listing  and  label 
cross  reference  into  a  single,  easier  to  use  report. 

The  second  new  report  is  the  interface  changes  report.  An 
INTERFACE  CHANGES  report  is  generated  for  each  FAVS  run.  It  lists  each 
module  name  and  indicates  changes  in  interface  properties  such  as 
parameters  added  or  deleted,  common  blocks  added  or  deleted,  and 
external  references  added  or  deleted.  It  also  lists  calls  to  undefined 
entries  and  to  entries  or  commons  which  are  no  longer  used.  Fig.  5.19 
is  an  example  of  an  INTERFACE  CHANGES  report.  New  modules  are  indicated 
by  the  words  "new  module"  in  the  fourth  column. 


PICTURE 


SUBROUTINE  80RTIR.II.JJ) 


UPUWU)  JUMPS 
A8CDEFGH I JKLMNOPORST 

STATEMENT  TEXT  (  BEGIN,  E-END,  S-6EL F  LOOP  ) 

I SNORT)  SO MMftD  4«f|  CUMB> 
*®CDEFGHI  J<LNN0PGRSTIMIXYZ12J4BA7#9 

SUBROUTINE  8GRTI A» II.JJ) 

DIMENSION  A<1>,IUU6>,IL(16> 

INTEGER  A.T.TT 

H  »  1 

I  -  H 

J  -  JJ 

e 

3  IF< I  ,0£.  Jl  00  TO  70 

CBS 

BE 

£. 

10  K  -  I 

2J  -  (J  ♦  I  >/2 

T  -  AUJ) 

IF <  A< I )  ,LE.  T)  GOTO  20 

•  EBB 

A<  I J)  »  AID 

.BE. 

A<I>  -  T 

T  »  A(IJ) 

20  I  -  J 

ESC 

IF ( A( J)  .GE.T)  GO  TO  40 

BEB 

•  EB. 

A(XJ)  «  A(J> 

A< J)  -  T 

T  »  A(IJ> 

IF(  AI l )  . L£ .  T>  GO  TO  40 

•  B.EB 

A< IJ)  «  A< I ) 

A(l>  *  T 

T  -  AI I J> 

GO  TO  40 

•  B-  E 

e, . 

30  AIL)  «  AIK) 

.  .  .  .  B 

AIK)  -  TT 

E .  .  . 

40  L  ■  L  -  1 

•EEEEB 

IFIAIL)  GT.  T)  GO  TO  40 

BB  E 

y. . . 

•  E. 

TT  -  AIL) 

E.  .  . 

50  K  -  K  ♦  1 

.BE 

IF  I  AIK)  LT.  T  )  GO  TO  50 

•  EBB 

B.  .  . 

.  E. 

IF!  K  ,LE.  L)  GO  TO  30 

.BBC 

B.  . 

.E. 

IF <  L-I  . LE .  J-fc)  00  TO  AO 

.BEB 

.EB. 

ILIM)  *  I 

IUIM )  •  L 

I  -  K 

N  -  N  ♦  1 

GO  TO  00 

BE 

60  ILIM)  *  K 

•  .EB 

IUIM)  *  J 

J  -  L 

M  -  H  4  l 

GO  TO  80 

.  .BE 

E.  . 

70  M  -  h  —1 

E.  B 

IF I  N  EQ.  0)  RETURN 

»..*» 

E.  .B. 

I  *  IL(M) 

J  -  IUIM) 

80  IF I J"I  .GE.ll>  GO  TO  10 

BCE. KB 

B 

E  .  . 

IF <  I  EO  II)  GO  TO  5 

BB  .  E 

.  B 

C.  . 

I  -  I  -I 

■  EE 

90  I  «  I  ♦  1 

•E  , 

IF!  I  EQ  J)  GO  TO  70 

EBB. 

B. 

E.  . 

T  *  A! l+l > 

IF <  AID  .LE.  T  )  GO  TO  90 

BBC. 

B 

E.  . 

K  -  I 

E 

10O  AIK+1)  -  AIK) 

BE  . 

K  -  K  -  1 

IF  I T  LT.  AIK))  00  TO  100 

EBB. 

B 

E.  . 

AIK+l)  -  T 

B 

GO  TO  90 

E. 

END 

E 

The  PICTURE  report  can  only  be  obtained  by  using  the  REPORT* 
PICTURE  command;  it  is  not  included  in  any  of  the  options  because  the 
PICTURE  report  has  limited  use  for  DMATRAN  source  programs.  The  primary 
function  of  this  report  is  to  delineate  the  control  flow  of  FORTRAN 
programs.  The  downward  flows  are  shown  on  the  right  of  the  report.  The 
upward  flows  are  shown  on  the  left.  The  B  stands  for  the  start  of  a 
path  and  the  E  stands  for  the  end  of  a  path.  This  report  is  especially 
helpful  in  breaking  down  large  FORTRAN  programs  into  smaller  parts  that 
are  more  manageable  for  FAVS  to  restructure.  Since  the  PICTURE  report 
shows  the  beginning  and  ending  of  paths,  it  helps  the  user  determine 
which  are  logically  cohesive  sections  of  code.  These  sections  of  code 
can  be  bounded  by  the  DMATRAN  BLOCK  ~  END  BLOCK  constructs  in  order  to 
simplify  restructuring  and  make  the  programs  easier  to  use. 


Figure  5.1b.  FAVS. 4  Picture  of  Module  Structure 

5-30 


INTCMhACt  CHAMtiE 


Figure  5.19.  FAVS.4  Interface  Changes  Report 


6  FAVS  ERROR  CORRECTION 

Two  types  of  errors  were  corrected  during  the  FAVS  software 
updates:  Errors  introduced  in  earlier  updates,  and  residual  errors 

present  in  FAVS  after  its  initial  installation  at  the  DMA  sites.  This 
section  discusses  the  residual  errors. 

6. 1  FORTRAN  V  PROCS 

UNIVAC  FORTRAN  V  allows  identical  sections  of  source  text  to  be 
inserted  with  the  FORTRAN  V  INCLUDE  statement.  This  statement  refers  to 
the  name  of  a  text  section  (PROC)  of  one  or  more  lines,  named  and  saved 
using  the  UNIVAC  PDP  processor.  A  PROC  is  preceded  by  a  line  which 
contains  the  name  of  the  PROC  beginning  in  the  FORTRAN  label  field,  one 
or  more  blanks  or  asterisks,  and  then  the  keyword  "PROC"  beginning  after 
column  6.  The  original  version  of  FAVS  incorrectly  looked  for  the 
keyword  "PROC"  followed  by  the  name  of  the  PROC.  FAVS  was  corrected  to 
look  for  the  correct  syntax. 

6.2  FORTRAN  V  COMPILER  STATEMENT 

UNIVAC  FORTRAN  V  allows  compiler  directives  to  be  specified  with  a 
FORTRAN  V  compiler  statement,  which  must  precede  the  compilation  unit 
to  which  it  pertains.  The  original  FAVS  discarded  all  comments,  blank 
lines,  and  compiler  statements  in  front  of  a  compilation  unit.  As  a 
result,  routines  with  UNIVAC  FORTRAN  V  dependencies  would  not  compile 
after  being  instrumented  or  restructured  by  FAVS.  This  was  corrected  by 
retaining  all  comments,  blank  lines,  and  compiler  statements  in  front  of 
FORTRAN  V  compilation  units. 

6.3  FORTRAN  V  INTERNAL  SUBROUTINES 

UNIVAC  FORTRAN  V  allows  subroutines  and  functions  to  be  defined 
within  one  compilation  unit.  This  is  done  by  inserting  each  subroutine 
or  function  (minus  an  "END"  statement)  immediately  in  front  of  the  END 
statement  for  the  compilation  unit.  Such  internal  subroutines  may  be 
referenced  only  within  the  same  compilation  unit.  Each  internal  sub- 
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routine  has  its  own  scope  for  labels;  that  is,  the  same  label  may  be 
used  in  the  main  body  of  the  compilation  unit  and  one  or  more  internal 
subroutines,  and  a  label  in  an  internal  subroutine  cannot  be  referenced 
from  the  main  body  of  the  compilation  unit.  This  feature  of  the  inter¬ 
nal  subroutines  was  not  recognized  during  the  initial  FAVS  installation. 
Instrumentation  of  compilation  units  with  internal  subroutines  resulted 
in  references  to  undefined  labels  when  the  instrumented  code  was 
compi  t.  This  was  corrected  by  creating  an  internal  subroutine  at  the 
end  of  each  instrumented  compilation  unit  rather  than  referencing  a 
label  defined  there.  Similarly,  when  internal  subroutines  referenced 
duplicate  labels,  the  restructured  source  would  be  incorrect.  FAVS 
label  processing  has  been  corrected  to  allow  duplicate  labels  within 
internal  subroutines. 

6.4  "EOF"  VARIABLE 

An  early  version  of  FORTRAN  (RUN)  on  the  CDC  6400  included  "EOF" 
as  a  keyword  in  certain  statement  types.  Recognition  of  this  statement 
type  was  removed  from  FAVS,  thus  allowing  the  unrestricted  use  of  "EOF" 
as  a  variable  name  in  UNIVAC  FORTRAN  V. 

6.5  ASSIGN  -G0-T0  STATEMENTS 

UNIVAC  FORTRAN  V  allows  ASSIGN  -GO-TO  statements  with  an  empty 
list  of  possible  branch  label  destinations.  This  was  identified  as  an 
error  by  FAVS  and  caused  an  incomplete  graph  to  be  used  during  instru¬ 
mentation,  restructuring,  and  static  analysis.  FAVS  was  modified  to 
internally  construct  and  use  the  complete  list  of  possible  branch  label 
destinations  for  each  ASSIGN  -GO-TO  statement. 

6.6  LONG  DATA  STATEMENTS 

Previously  very  large  data  statements  caused  an  abnormal  termi¬ 
nation  during  FAVS  processing.  FAVS  has  been  corrected  to  check  for 
statements  with  more  than  19  continuation  lines,  or  executable  state¬ 
ments  with  more  than  250  symbols,  keywords,  operators,  and  delimiters. 
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These  are  treated  as  fatal  errors  which  terminate  FAVS  processing  after 
all  source  text  has  been  scanned.  An  informative  diagnostic  identifies 
each  statement  which  is  too  long. 


APPENDIX  A 

UPDATES  TO  THE  DMATRAN  USER'S  GUIDE 


Appendix  A  consists  entirely  of  updated  pages  for  the  January  1979 
edition  of  the  DMATRAN  User's  Guide,  available  as  RADC-TR-78-268,  Vol. 
I.  Replacement  by  the  modified  pages  in  this  appendix  will  update  the 
DMATRAN  User's  Guide  to  indicate  changes  made  during  the  FAVS  Enhance¬ 
ment  effort. 
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L)  MAT  RAN  CONSTRAINTS 


A. 1  SYNTAX 

•  A  maximum  of  20  card  images  per  statement. 

•  Statement  labels  between  10000  and  19999  should  not  be  used 
because  the  DMATRAN  preprocessor  adds  statement  labels, 
beginning  with  label  19999  counting  backwards,  to  the 
FORTRAN  source  code  (Fig.  3.3). 

•  Don't  transfer  to  labeled  DMATRAN  statements  with  FORTRAN  GO 
TO '  s . 

•  Comments  may  not  be  interspersed  within  DMATRAN  statements. 

•  All  two-word  DMATRAN  directives  may  be  written  as  two 
separate  words  or  merged  into  one;  i.e.,  DO  UNTIL  or 
DOUNTIL. 

4.2  DO  UNTIL 

Remember,  when  the  DO  UNTIL. .. ENDUNTIL  construct  is  used  for 
iteration,  the  statements  contained  within  the  construct  will  be 
executed  once  before  the  logical  expression  is  evaluated. 

4. 3  CASE 

The  value  of  <integer~expression>  in  CASE  statements  must  be 
positive  and  must  be  less  than  100. 

4.4  BLOCK  CONSTRUCT 

•  Each  BLOCK... END  BLOCK  construct  should  occur  after  all 
INVOKE  statements  which  refer  to  the  block  name,  but  may  be 
before  or  after  the  RETURN  statement. 

•  Blocks  can  only  be  entered  through  INVOKE  statements. 
Sequential  control  transfers  around  BLOCK... END  BLOCK 
constructs.  Do  not  use  a  GO  TO  enter  the  middle  of  a 
BLOCK.. END  BLOCK  construct  from  outside  the  block. 
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•  The  maximum  number  of  INVOKES  and  BLOCKs  depends  on  the 
lengths  of  the  BLOCK  names  and  number  of  invocations,  see 
Sec.  2.5. 
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RADC  HONEYWELL  6 180 /MULT ICS 
SAMPLE  DMATRAN  JOB  STREAM 
(USING  THE  GCOS  ENCAPSULATOR ) 


In  order  to  use  the  DMATRAN  precompiler,  using  source  code  written 
in  DMATRAN  generated  by  a  programmer  or  by  FAVS  restructurer ,  the  job 
stream  shown  in  the  following  example  can  be  used. 


1. 

$ 

snumb 

(number) 

2. 

$ 

ident 

3. 

$ 

program 

rlhs 

4. 

$ 

limits 

(CP  time  limit ) ,32k, , (print  line  limit) 

3. 

$ 

prmf  1 

h* ,r ,r , >udd>3201c0320>Urban>dmatran>hstar 

6 . 

$ 

select 

>udd>3201c0320>Urban>dmatran>f iledef s  -ascii 

7. 

$ 

prmf  1 

01 ,r ,s, >udd(BCD  dmatran  source  file) 

8. 

$ 

prmfl 

03,w,s,>udd>(BCD  Translated  FORTRAN  source  file) 

9. 

$ 

end job 
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DMA  UNIVAC  1100/80 
SAMPLE  DMATRAN  JOB  STREAM 


The  job  stream  in  the  following  example  can  be  used  to  execute  the 
DMATRAN  precompiler. 


@ASG, A 

YOURSOURCE. 

.YOUR  DMATRAN  SOURCE 

@USE 

Y. , Y0URS0URCE. 

• 

@ASG, A 

DBM*FAVS~DMA. 

.AS G  DMATRAN 

PRECOMPILER 

@USE 

DMA. , DBM*FAVS~DMA. 

• 

@XQT 

DMA. TRAN 

.EXECUTE  DMATRAN  PRECOMPILER 

@ADD 

Y. ELEMENTS 

.ADD  DMATRAN 

SOURCE  ELEMENTS  HERE 

The  UNIVAC 

1100/80  installation  of  the 

DMATRAN  precompiler 

supports  an  additional  command  (see  Sec.  5.1)  to  .assist  in  compiling 
translated  DMATRAN.  This  command  contains  CFOR  or  CFTN  in  columns  1 
thru  4,  followed  by  any  desired  information  in  columns  5  thru  80.  The 
DMATRAN  precompiler  changes  the  C  in  column  1  of  all  CFOR  and  CFTN 
commands  to  an  @  character  as  the  command  is  written  to  the  FORTRAN 
output  file.  When  the  DMATRAN  precompiler  automatically  adds  the 
FORTRAN  output  file  to  the  runstream,  the  translated  CFOR  or  CFTN 
statements  request  either  the  FORTRAN  V  or  the  ASCII  FORTRAN  compiler. 
Note  that  to  compile  a  DMATRAN  source  element,  the  first  line  in  the 
element  should  be  a  CFOR  or  CFTN  command.  Indented  listings  without 
FORTRAN  V  or  ASCII  FORTRAN  compilations  may  be  obtained  by  omitting  CFOR 
and  CFTN  commands. 
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MISSION 
of 

Rome  Air  Development  Center 

RAVC  plani>  and.  executes  research,  development,  test  and 
detected  acquisition  pA.ogn.ams  in  support  of  Command,  Control 
Communications  and  Intelligence  (C3I )  activities.  Technical 
and  engineering  support  within  areas  of  technical  competence 
is  provided  to  ESP  Program  Prices  ( PCs )  and  other  ESP  ’ 

elements.  The  principal  technical  mission  areas  are 
communications,  electromagnetic  guidance  and  control,  sur¬ 
veillance  of)  ground  and  aerospace  objects,  intelligence  data 
collection  and  handling,  information  system  technology, 
ionospheric  propagation,  solid  state  sciences,  microwave 
physics  and  electronic  reliability,  maintainability  and 
compatibility. 


